%1 mshta vbscript:CreateObject("WScript.Shell").Run("%~s0 ::",0,FALSE)(window.close)&&exit

:: 变量定义、赋值、字符串拼接赋值变量
:: 将当前目录保存到参数nowBatDir(等号前后不要有空格）
set nowBatDir=%cd%
:: 保存当前的盘符（之后要切换回来）
set nowBatDird=%~d0

:: 锁屏图片缓存文件文件存放部分路径LockScreenWallpaperFilesSaveDir中（等号前后不要有空格）
set LockScreenWallpaperFilesDir=\AppData\Local\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets

:: 拼接完整的锁屏图片缓存文件存放路径（等号前后不要有空格）
set completeLockScreenWallpaperFilesDir=%HOMEPATH%%LockScreenWallpaperFilesDir%

:: 打印路径
echo completeLockScreenWallpaperFilesDir=%completeLockScreenWallpaperFilesDir%

:: 将当前根目录路径保存到参数userDir中（等号前后不要有空格）
set SaveDirName=CopyWin10LockScreenWallpaper
set completeSaveDir=%nowBatDir%\%SaveDirName%

:: 在bat所在的路径下创建目录
md  %completeSaveDir%

:: 打印路径
echo completeSaveDir=%completeSaveDir%

:: 切换到C盘（防止在其他盘运行导致出错）
C:
:: 切换路径，进入要复制的目录
cd %completeLockScreenWallpaperFilesDir%
:: 复制锁屏图片缓存文件到创建目录指定文件夹下
copy %completeLockScreenWallpaperFilesDir%  %completeSaveDir%

:: 进入复制完后的目录
::   切换回原来的盘符
%nowBatDird%
cd  %completeSaveDir%

:: 批量修改文件后缀名改成.JPG。
ren * *.jpg*

:: 暂停
:: pause